inherited frmCashFlowOper: TfrmCashFlowOper
  Left = 329
  Top = 187
  Caption = #29616#37329#27969#37327#25968#25454#20998#37197
  ClientHeight = 453
  ClientWidth = 780
  Position = poMainFormCenter
  ExplicitWidth = 788
  ExplicitHeight = 480
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlBottom: TPanel
    Top = 398
    Width = 780
    Height = 55
    ExplicitTop = 398
    ExplicitWidth = 780
    ExplicitHeight = 55
    inherited btnOK: TcxButton
      Left = 785
      Top = 13
      Width = 100
      Caption = #29616#37329#27969#37327#20998#37197
      ExplicitLeft = 785
      ExplicitTop = 13
      ExplicitWidth = 100
    end
    inherited btnCancel: TcxButton
      Left = 895
      Top = 13
      Width = 100
      Caption = #20851#38381'(&C)'
      OnClick = btnCancelClick
      ExplicitLeft = 895
      ExplicitTop = 13
      ExplicitWidth = 100
    end
    object btnSetCashFlowSubject: TcxButton
      Left = 15
      Top = 13
      Width = 100
      Height = 25
      Anchors = [akLeft, akBottom]
      Caption = #29616#37329#39033#30446#31185#30446#21305#37197
      TabOrder = 2
      OnClick = btnSetCashFlowSubjectClick
    end
    object btnAutoSplite: TcxButton
      Left = 127
      Top = 13
      Width = 100
      Height = 25
      Anchors = [akLeft, akBottom]
      Caption = #33258#21160#20998#37197
      TabOrder = 3
      OnClick = btnAutoSpliteClick
    end
    object chkListAll: TcxCheckBox
      Left = 243
      Top = 15
      Anchors = [akLeft, akBottom]
      Caption = #26174#31034#20840#37096#39033#30446
      ParentFont = False
      Properties.OnChange = chkListAllPropertiesChange
      Style.Font.Charset = GB2312_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -12
      Style.Font.Name = #23435#20307
      Style.Font.Style = []
      Style.IsFontAssigned = True
      TabOrder = 4
      Transparent = True
    end
  end
  inherited Panel1: TPanel
    Width = 780
    Height = 53
    ExplicitWidth = 780
    ExplicitHeight = 53
    inherited labFuncName: TLabel
      Font.Color = clWindowText
      Visible = False
    end
    inherited labFuncDesc: TLabel
      Font.Color = clWindowText
      Visible = False
    end
    inherited img3: TImage
      Left = 953
      ExplicitLeft = 721
    end
    inherited Bevel1: TBevel
      Top = 50
      Width = 780
      ExplicitTop = 50
      ExplicitWidth = 772
    end
    object cxLabel1: TcxLabel
      Left = 18
      Top = 20
      Caption = #20998#25903#26426#26500
      ParentFont = False
      Style.Font.Charset = GB2312_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -12
      Style.Font.Name = #23435#20307
      Style.Font.Style = []
      Style.IsFontAssigned = True
      Transparent = True
    end
    object edtFil: TcxComboBox
      Left = 70
      Top = 18
      TabOrder = 1
      Text = 'edtFil'
      Width = 120
    end
    object chkSplited: TcxCheckBox
      Left = 571
      Top = 18
      Caption = #21253#21547#24050#20998#37197#20973#35777
      ParentFont = False
      Style.Font.Charset = GB2312_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -12
      Style.Font.Name = #23435#20307
      Style.Font.Style = []
      Style.IsFontAssigned = True
      TabOrder = 2
      Transparent = True
    end
    object btnRefresh: TcxButton
      Left = 694
      Top = 15
      Width = 75
      Height = 25
      Caption = #21047#26032
      TabOrder = 3
      OnClick = btnRefreshClick
    end
    inline dfCash: TFrameSetDateFilter
      Left = 207
      Top = 15
      Width = 355
      Height = 26
      TabOrder = 4
      ExplicitLeft = 207
      ExplicitTop = 15
      inherited cxLabel2: TcxLabel
        Style.Font.Color = clWindowText
        Style.IsFontAssigned = True
      end
      inherited cxLabel3: TcxLabel
        Style.Font.Color = clWhite
        Style.IsFontAssigned = True
      end
      inherited cxLabel4: TcxLabel
        Style.Font.Color = clWhite
        Style.IsFontAssigned = True
      end
      inherited edtDateFilter: TcxComboBox
        Properties.OnChange = nil
      end
      inherited edtBDate: TcxDateEdit
        Properties.OnChange = nil
      end
      inherited edtEDate: TcxDateEdit
        Properties.OnChange = nil
      end
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 53
    Width = 780
    Height = 162
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object grdVou: TcxGrid
      Left = 0
      Top = 0
      Width = 780
      Height = 162
      Align = alClient
      TabOrder = 0
      object viewVou: TcxGridDBTableView
        Navigator.Buttons.CustomButtons = <>
        OnCustomDrawCell = viewVouCustomDrawCell
        DataController.DataSource = dsVou
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <
          item
            Kind = skSum
            Column = viewVouCreditAmt
          end
          item
            Kind = skSum
            Column = viewVouDebitAmt
          end
          item
            Kind = skCount
            Column = viewVouBATE
          end>
        DataController.Summary.SummaryGroups = <>
        OptionsBehavior.FocusCellOnTab = True
        OptionsBehavior.GoToNextCellOnEnter = True
        OptionsBehavior.FocusCellOnCycle = True
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsSelection.MultiSelect = True
        OptionsView.ColumnAutoWidth = True
        OptionsView.Footer = True
        OptionsView.FooterMultiSummaries = True
        OptionsView.GroupByBox = False
        OptionsView.Indicator = True
        OptionsView.IndicatorWidth = 25
        Styles.Background = MainDM.bslBackGroup
        Styles.ContentEven = MainDM.bsEven
        Styles.ContentOdd = MainDM.bsOdd
        Styles.Selection = MainDM.bsSelect
        Styles.Footer = MainDM.bsTitle
        Styles.Header = MainDM.bsTitle
        OnCustomDrawIndicatorCell = viewVouCustomDrawIndicatorCell
        object viewVouBATE: TcxGridDBColumn
          Caption = #20973#35777#26085#26399
          DataBinding.FieldName = 'bdate'
          HeaderAlignmentHorz = taCenter
          Width = 80
        end
        object viewVouVouwordNAME: TcxGridDBColumn
          Caption = #20973#35777#23383
          DataBinding.FieldName = 'VouwordNAME'
          HeaderAlignmentHorz = taCenter
          Width = 40
        end
        object viewVouvoucherno: TcxGridDBColumn
          Caption = #20973#35777#21495
          DataBinding.FieldName = 'voucherno'
          HeaderAlignmentHorz = taCenter
          Width = 40
        end
        object viewVouSUBCODE: TcxGridDBColumn
          Caption = #31185#30446#32534#30721
          DataBinding.FieldName = 'SUBCODE'
          HeaderAlignmentHorz = taCenter
          Width = 80
        end
        object viewVouSubNAME: TcxGridDBColumn
          Caption = #31185#30446#21517#31216
          DataBinding.FieldName = 'SubNAME'
          HeaderAlignmentHorz = taCenter
          Width = 120
        end
        object viewVouExplan: TcxGridDBColumn
          Caption = #25688#35201
          DataBinding.FieldName = 'Explan'
          HeaderAlignmentHorz = taCenter
          Width = 140
        end
        object viewVouDebitAmt: TcxGridDBColumn
          Caption = #20511#26041
          DataBinding.FieldName = 'DebitAmt'
          HeaderAlignmentHorz = taCenter
          Width = 100
        end
        object viewVouCreditAmt: TcxGridDBColumn
          Caption = #36151#26041
          DataBinding.FieldName = 'CreditAmt'
          HeaderAlignmentHorz = taCenter
          Width = 100
        end
        object viewVouvoucherid: TcxGridDBColumn
          DataBinding.FieldName = 'voucherid'
          Visible = False
        end
        object viewVouvouwordid: TcxGridDBColumn
          DataBinding.FieldName = 'vouwordid'
          Visible = False
        end
        object viewVouchanged: TcxGridDBColumn
          DataBinding.FieldName = 'changed'
          Visible = False
        end
        object viewVoucolor: TcxGridDBColumn
          DataBinding.FieldName = 'color'
          Visible = False
        end
      end
      object lvlVou: TcxGridLevel
        GridView = viewVou
      end
    end
  end
  object Panel3: TPanel [3]
    Left = 0
    Top = 223
    Width = 780
    Height = 175
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 3
    object grdCashFlow: TcxGrid
      Left = 0
      Top = 0
      Width = 780
      Height = 175
      Align = alClient
      TabOrder = 0
      object viewCashFlow: TcxGridDBTableView
        PopupMenu = pmCashFlow
        OnDblClick = viewCashFlowDblClick
        OnMouseDown = viewCashFlowMouseDown
        Navigator.Buttons.CustomButtons = <>
        DataController.DataSource = csCashFlow
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <
          item
            Kind = skSum
            Column = viewCashFlowCredit
          end
          item
            Kind = skSum
            Column = viewCashFlowDebit
          end
          item
            Kind = skCount
            Column = viewCashFlowbdate
          end>
        DataController.Summary.SummaryGroups = <>
        OptionsBehavior.FocusCellOnTab = True
        OptionsBehavior.FocusFirstCellOnNewRecord = True
        OptionsBehavior.GoToNextCellOnEnter = True
        OptionsBehavior.FocusCellOnCycle = True
        OptionsData.Appending = True
        OptionsView.ShowEditButtons = gsebForFocusedRecord
        OptionsView.ColumnAutoWidth = True
        OptionsView.Footer = True
        OptionsView.FooterMultiSummaries = True
        OptionsView.GroupByBox = False
        OptionsView.Indicator = True
        OptionsView.IndicatorWidth = 25
        Styles.Background = MainDM.bslBackGroup
        Styles.ContentEven = MainDM.bsEven
        Styles.ContentOdd = MainDM.bsOdd
        Styles.Selection = MainDM.bsSelect
        Styles.Footer = MainDM.bsTitle
        Styles.Header = MainDM.bsTitle
        OnCustomDrawIndicatorCell = viewVouCustomDrawIndicatorCell
        object viewCashFlowbdate: TcxGridDBColumn
          Caption = #20973#35777#26085#26399
          DataBinding.FieldName = 'bdate'
          HeaderAlignmentHorz = taCenter
          Options.Editing = False
          Width = 80
        end
        object viewCashFlowwordname: TcxGridDBColumn
          Caption = #20973#35777#23383
          DataBinding.FieldName = 'wordname'
          HeaderAlignmentHorz = taCenter
          Options.Editing = False
          Width = 40
        end
        object viewCashFlowVoucherno: TcxGridDBColumn
          Caption = #20973#35777#21495
          DataBinding.FieldName = 'voucherno'
          HeaderAlignmentHorz = taCenter
          Options.Editing = False
          Width = 40
        end
        object viewCashFlowCODE: TcxGridDBColumn
          DataBinding.FieldName = 'CODE'
          HeaderAlignmentHorz = taCenter
          Options.Editing = False
          Width = 80
        end
        object viewCashFLOWID: TcxGridDBColumn
          Caption = #29616#37329#27969#37327#21517#31216
          DataBinding.FieldName = 'FLOWID'
          HeaderAlignmentHorz = taCenter
          Width = 120
        end
        object viewCashFlowDebit: TcxGridDBColumn
          DataBinding.FieldName = 'Debit'
          HeaderAlignmentHorz = taCenter
          Width = 100
        end
        object viewCashFlowCredit: TcxGridDBColumn
          DataBinding.FieldName = 'Credit'
          HeaderAlignmentHorz = taCenter
          Width = 100
        end
      end
      object lvlCashFlow: TcxGridLevel
        GridView = viewCashFlow
      end
    end
  end
  object sptCashFlow: TcxSplitter [4]
    Left = 0
    Top = 215
    Width = 780
    Height = 8
    HotZoneClassName = 'TcxXPTaskBarStyle'
    AlignSplitter = salBottom
    Control = Panel2
  end
  object csCashFlow: TDataSource
    DataSet = qryCashFlow
    Left = 112
    Top = 320
  end
  object qryCashFlow: TUniQuery
    SQLInsert.Strings = (
      
        'insert into tfb_cashflow (flowid,voucherid,filid,debit,credit) v' +
        'alues (:flowid,:voucherid,:filid,:debit,:credit)')
    SQLDelete.Strings = (
      'delete tfb_cashflow '
      ' where flowid=:old_flowid and voucherid=:voucherid')
    SQLUpdate.Strings = (
      
        'update tfb_cashflow set flowid=:flowid,voucherid=:voucherid,debi' +
        't=:debit,credit=:credit,filid=:filid'
      ' where flowid=:old_flowid and voucherid=:voucherid')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select a.flowid,a.voucherid,a.debit,a.credit,b.code,b.name '
      
        '    from tfb_cashflow a, tfd_CashFlow b  where a.flowId=b.flowId' +
        ' ')
    OnNewRecord = qryCashFlowNewRecord
    Left = 40
    Top = 316
    object cdsCashFlowFLOWID: TIntegerField
      FieldName = 'FLOWID'
    end
    object cdsCashFlowVoucherID: TIntegerField
      FieldName = 'VoucherID'
    end
    object cdsCashFlowCODE: TStringField
      DisplayLabel = #29616#37329#27969#37327#32534#30721
      FieldName = 'CODE'
      Size = 40
    end
    object cdsCashFlowNAME: TStringField
      DisplayLabel = #29616#37329#27969#37327#21517#31216
      FieldName = 'NAME'
      Size = 60
    end
    object qryCashFlowDebit: TFloatField
      DisplayLabel = #27969#20837
      FieldName = 'Debit'
      OnGetText = cdsCashFlowDEBITGetText
    end
    object qryCashFlowCredit: TFloatField
      DisplayLabel = #27969#20986
      FieldName = 'Credit'
      OnGetText = cdsCashFlowDEBITGetText
    end
    object qryCashFlowbdate: TDateTimeField
      FieldName = 'bdate'
      ProviderFlags = []
    end
    object qryCashFlowwordname: TStringField
      FieldName = 'wordname'
      ProviderFlags = []
      Size = 60
    end
    object qryCashFlowvoucherno: TIntegerField
      FieldName = 'voucherno'
      ProviderFlags = []
    end
    object qryCashFlowfilid: TIntegerField
      FieldName = 'filid'
    end
  end
  object dsVou: TDataSource
    DataSet = cdsVou
    Left = 256
    Top = 65
  end
  object qrySumVou: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select voucherid,sum(debitamt) as debit,sum(creditamt) as credit'
      'from tfb_voucherdtl'
      'where voucherid=:voucherid and subjectid in  '
      '(select subjectid from tfd_subject where docashflow=1) '
      'group by voucherid')
    Left = 428
    Top = 169
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'voucherid'
        Value = nil
      end>
  end
  object qrySumCashFlow: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select voucherid,sum(debitamt) as debit,sum(creditamt) as credit'
      'from tfb_voucherdtl'
      'where voucherid=:voucherid and subjectid in  '
      '(select subjectid from tfd_subject where docashflow=1) '
      'group by voucherid')
    Left = 528
    Top = 141
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'voucherid'
        Value = nil
      end>
  end
  object qryVou: TUniQuery
    Connection = MainDM.UniConn
    Left = 140
    Top = 129
  end
  object cdsVou: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 216
    Top = 121
    object cdsVouvoucherid: TIntegerField
      FieldName = 'voucherid'
    end
    object cdsVouvouwordid: TIntegerField
      FieldName = 'vouwordid'
    end
    object cdsVouvouwordname: TStringField
      FieldName = 'vouwordname'
      Size = 40
    end
    object cdsVoubdate: TDateField
      FieldName = 'bdate'
    end
    object cdsVouorderno: TIntegerField
      FieldName = 'orderno'
    end
    object cdsVousubcode: TStringField
      FieldName = 'subcode'
      Size = 40
    end
    object cdsVousubname: TStringField
      FieldName = 'subname'
      Size = 60
    end
    object cdsVouexplan: TStringField
      FieldName = 'explan'
      Size = 200
    end
    object cdsVoudebitamt: TFloatField
      FieldName = 'debitamt'
      OnGetText = cdsCashFlowDEBITGetText
    end
    object cdsVoucreditamt: TFloatField
      FieldName = 'creditamt'
      OnGetText = cdsCashFlowDEBITGetText
    end
    object cdsVouchanged: TIntegerField
      FieldName = 'changed'
    end
    object cdsVoucolor: TIntegerField
      FieldName = 'color'
    end
    object cdsVouvouyearmonth: TStringField
      FieldName = 'vouyearmonth'
      Size = 6
    end
    object cdsVoubno: TIntegerField
      FieldName = 'bno'
    end
    object cdsVouvoucherno: TIntegerField
      FieldName = 'voucherno'
    end
    object cdsVousubjectid: TIntegerField
      FieldName = 'subjectid'
    end
  end
  object pmCashFlow: TPopupMenu
    Left = 424
    Top = 286
    object muCashFlowAppend: TMenuItem
      Caption = #26032#22686#29616#37329#27969#37327#39033#30446
      OnClick = muCashFlowAppendClick
    end
    object muCashFlowPart: TMenuItem
      Caption = '-'
    end
    object muDelCashFlow: TMenuItem
      Caption = #21024#38500#29616#37329#27969#37327#39033#30446
      OnClick = muDelCashFlowClick
    end
    object muCashFLowDelAll: TMenuItem
      Caption = #21024#38500#20840#37096#29616#37329#27969#37327#39033#30446
      OnClick = muCashFLowDelAllClick
    end
  end
end
